1 CLS:SCREEN3,0,0"LOCATE0,0,0:DEFINTA-Z:C=80:L=50
2 IFINKEY$=CHR$(13)THEN1ELSEA=RND*70:CX=RND*3-2:LX=RND*3-2:FORT=1TOA:PSET(C,L):PSET(320-C,L):PSET(320-C,200-L):PSET(C,200-L):C=C+CX:L=L+LX:C=C-319*INT(C/319):L=L-199*INT(L/199):NEXTT:GOTO2